home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / files / ID99MENU.DIR / 00029_Script_title list script < prev    next >
Text File  |  1999-04-29  |  3KB  |  90 lines
  1. global learnedsizes,tickrate,firstthumbnail,screenshotloc,screenshotwidth
  2. global currtitle,screenshotheight,firsttitle,viewby,titlewidth,titleheight
  3.  
  4. property s,mysmallloc,mysmallwidth,mysmallheight,mymediumloc,mymediumwidth,mymediumheight
  5. property mybwmember,mycolormember,mysmallrect,mymediumrect,mypercent,fullon,insmall,inmedium
  6. property scaleup,scaledown,scalepercent,mymerit,mymovestart,mydelay,goscreenshot
  7. property mycurrwidth,mycurrheight,mycurrloc,mybigmember,switchedtext,inpartner,mytitle
  8. property dochangetitle,changetime,mynextbwmember
  9.  
  10. on beginsprite me
  11.   s = the spritenum of me
  12.   mynextbwmember = the number of member ("title"&&(s-firsttitle+1)&&"bw")
  13.   preloadmember mynextbwmember
  14.   mynextbwmember = the number of member ("designer"&&(s-firsttitle+1)&&"bw")
  15.   preloadmember mynextbwmember
  16.   mynextbwmember = the number of member ("client"&&(s-firsttitle+1)&&"bw")
  17.   preloadmember mynextbwmember
  18.   firstmember = the number of member (viewby&&(s-firsttitle+1)&&"bw")
  19.   set the membernum of sprite s to firstmember
  20.   mybwmember = the number of member ("title"&&(s-firsttitle+1)&&"color")
  21.   preloadmember mybwmember
  22.   mynextbwmember = the membernum of sprite s
  23.   cmember = the name of member mybwmember
  24.   mytitle = word 2 of cmember
  25.   delete the last word of cmember
  26.   if the last char of cmember = space then delete the last char of cmember
  27.   put " color" after cmember
  28.   mycolormember = the number of member cmember
  29.   mypercent = 0
  30.   insmall = false
  31.   set the width of sprite s to titlewidth
  32.   set the height of sprite s to titleheight
  33.   mysmallrect = the rect of sprite s
  34.   mysmallwidth = the width of sprite s
  35.   mysmallheight = the height of sprite s
  36.   inpartner = false
  37. end
  38.  
  39. on prepareframe me
  40.   if not learnedsizes then exit
  41.   if dochangetitle then
  42.     if not the loaded of member mynextbwmember then preloadmember mynextbwmember
  43.     if the ticks > changetime + (s-firsttitle)*4 then
  44.       set insmall = true
  45.       set dochangetitle = false
  46.     end if
  47.   end if
  48.   if (inside(the mouseloc, mysmallrect)) or inpartner or (currtitle = (s-firsttitle+1)) then
  49.     set insmall = true
  50.   end if
  51.   if insmall then
  52.     if mypercent = 100 then
  53.       insmall = inside(the mouseloc, mysmallrect)
  54.       exit
  55.     end if
  56.     mypercent = min(100,mypercent+tickrate)
  57.   else
  58.     if mypercent = 0 then
  59.       exit
  60.     end if
  61.     mypercent = max(0,mypercent-tickrate)
  62.   end if
  63.   if mypercent >= 50 then
  64.     set the membernum of sprite s to mycolormember
  65.     mybwmember = mynextbwmember
  66.   else
  67.     set the membernum of sprite s to mybwmember
  68.   end if
  69.   newwidth = (float(mysmallwidth)/100) * (abs(50-mypercent) * 2)
  70.   set the width of sprite s to newwidth
  71.   set the height of sprite s to mysmallheight
  72. end
  73.  
  74. on changetitle me,towhat
  75.   mynextbwmember = the number of member (towhat&&mytitle&&"bw")
  76.   dochangetitle = true
  77.   changetime = the ticks
  78. end
  79.  
  80. on mouseup me
  81.   sendallsprites #growdown "gold"
  82.   sendallsprites #growdown "silver"
  83.   sendallsprites #growdown "bronze"
  84.   sendsprite((s-100),#mouseup, true,(s-firsttitle+1))
  85. end
  86.  
  87. on checkclick me,clickedloc
  88.   if inside(clickedloc, mysmallrect) then mouseup
  89. end
  90.